*Figure 9A:  Evolution over time of number of important characteristics by constitution

use "Data_CoreProvisions_240423.dta", clear


keep if year >= 1950 & year <= 2020

collapse (mean) total_present, by(year)
replace total_present = round(total_present, 0.01)

twoway line total_present year, xtitle("Year") ytitle("Number of Important Provisions") title("")  xlabel(1950(10)2020) saving(count_important, replace)
graph export "Figure_9A.pdf", replace
